﻿
Public Class Form1
    Public Shared Sub Main(ByVal args() As String)
        Dim f As Form1 = Nothing
        f = New Form1()
        If Not args Is Nothing AndAlso args.Length() >= 3 Then
            Dim r As Byte = 0
            Dim g As Byte = 0
            Dim b As Byte = 0
            Dim a As Byte = 255
            Int32.TryParse(args(0), r)
            Int32.TryParse(args(1), g)
            Int32.TryParse(args(2), b)
            If args.Length() >= 4 Then
                Int32.TryParse(args(3), a)
            End If

            f.BackColor() = Color.FromArgb(255, r, g, b)
            f.Opacity() = a / 255
        End If
        Application.Run(f)
    End Sub

    Private Sub Form1_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If e.KeyCode() = Keys.Escape Then
            End
        End If
    End Sub
End Class
